home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
hardware
/
mltscn20.lha
/
adpro
/
commands2
/
SCAN_24_1_4.adpro
< prev
next >
Wrap
Text File
|
1995-09-04
|
1KB
|
49 lines
/*
** DisplayImage.adproapp
**
** $VER: DisplayImage.adproapp 1.0.0 (29.1.94)
**
** This ARexx script for ADPro is intended to be used as the script that
** gets executed when one or more files is dropped on the ADPro AppWindow
** or AppIcon. As such, you should set the APPSCRIPT tool type or
** CLI argument to this script's filename.
**
** This app script allows you to load and display the first image dropped
** on the AppWindow/AppIcon/AppMenu. If more than one image is dropped,
** they will be ignored.
**
** This script requires ADPro v2.5.0 (or higher).
**
** Copyright © 1993-1994 ASDG, Incorporated
** All Rights Reserved
*/
ADDRESS MULTISCAN
SET_MODE 1
SET_AREA 0 0 176 245
SCAN_IMAGE FILE "dh1:scan"
SCAN_CONVERT INFILE "dh1:scan" OUTFILE "dh1:scan.iff"
ADDRESS "ADPro"
NL = '0A'X
SQ = '27'X
DQ = '22'X
TRUE = 1
FALSE = 0
/*
** Load only the first image.
*/
LOADER "UNIVERSAL" "dh1:scan.iff"
IF (RC ~= 0) THEN DO
ADPRO_TO_FRONT
OKAY1 "Error loading file:" || NL ||,"test1.iff"
CALL ErrorOut 10
END